home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 01.ki (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  41 lines
  1. 0 rem ***************************
  2. 1 rem *      ki-programm 1      *
  3. 2 rem * 1985 by michael nickles *
  4. 3 rem ***************************
  5. 10 rem data's lesen
  6. 20 dim x(20)
  7. 30 fori=1to20
  8. 40 read x(i)
  9. 50 next i
  10. 60 hz=20: rem anzahl der hoelzer
  11. 100 print"[147]vor ihnen liegt ein haeufchen mit 20    hoelzern."
  12. 110 print"sie und der computer koennen nun"
  13. 120 print"abwechselnd je 1, 2 oder 3 hoelzer"
  14. 130 print"wegnehmen."
  15. 140 print"wer das letzte hoelzchen nehmen muss,"
  16. 150 print"hat verloren."
  17. 220 input"moechten sie anfangen (j/n)";i$
  18. 230 ifi$<>"j"andi$<>"n"then220
  19. 240 ifi$="j"thenprint"ok. sie fangen an.":goto300
  20. 250 ifi$="n"thenprint"ok. dann beginne ich.":goto400
  21. 300 :
  22. 301 rem spieler ist am zug
  23. 302 :
  24. 310 input"wieviele hoelzer";n
  25. 320 ifn<>1andn<>2andn<>3thenprint"sie koennen nur 1, 2 oder 3 nehmen !":goto310
  26. 330 hz=hz-n
  27. 340 ifhz<=0thenprint"sie haben verloren !":end
  28. 400 :
  29. 401 rem computer ist am zug
  30. 402 :
  31. 410 n=x(hz)
  32. 420 print"ich nehme";n;"hoelzer."
  33. 430 hz=hz-n
  34. 440 ifhz=0thenprint"sie haben gewonnen !":end
  35. 500 :
  36. 501 rem hoelzeranzahl festlegen
  37. 502 :
  38. 510 print"es liegen jetzt noch";hz;"hoelzer da !"
  39. 520 goto300
  40. 1000 data1,1,2,3,1,1,2,3,3,1,2,3,2,1,2,3,1,1,2,3
  41.